home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / CW MacMindy 1.4 / Examples / QD3D-Viewer / QD3D-Library Sources / QD3DMisc.dyl < prev    next >
Encoding:
Text File  |  1995-07-14  |  1.2 KB  |  33 lines  |  [TEXT/CWIE]
  1. module: QD3DMisc
  2.  
  3. define module QD3DMisc
  4.     use Dylan;                            // all programs need this.
  5.     use Extensions;                        // imports "main"
  6.     use Toolbox;                        // imports <OSErr>, etc.
  7.     use Extern;                            // so we can use get-c-function.
  8.     use QD3DTypes;
  9.  
  10.     export
  11.         $kQ3ViewStatusDone, $kQ3ViewStatusRetraverse,
  12.         $kQ3ViewStatusError, $kQ3ViewStatusCancelled,
  13.         Q3View-StartRendering, Q3View-EndRendering, Q3MatrixTransform-Submit
  14. end module QD3DMisc;
  15.  
  16. define constant *QuickDraw3DLib* = load-object-file(#("QuickDraw™ 3D"));
  17.  
  18. // support for rendering views.
  19.  
  20. define constant $kQ3ViewStatusDone = 0;
  21. define constant $kQ3ViewStatusRetraverse = 1;
  22. define constant $kQ3ViewStatusError = 2;
  23. define constant $kQ3ViewStatusCancelled = 3;
  24.  
  25. define constant Q3View-StartRendering = get-c-function("Q3View_StartRendering",
  26.     args: list(<TQ3ViewObject>), result: <TQ3Status>, file: *QuickDraw3DLib*);
  27.  
  28. define constant Q3View-EndRendering = get-c-function("Q3View_EndRendering",
  29.     args: list(<TQ3ViewObject>), result: <TQ3Status>, file: *QuickDraw3DLib*);
  30.  
  31. define constant Q3MatrixTransform-Submit = get-c-function("Q3MatrixTransform_Submit",
  32.     args: list(<TQ3Matrix4x4>, <TQ3ViewObject>), result: <TQ3Status>, file: *QuickDraw3DLib*);
  33.